n := 0; 
b := 5;

if n 
    then 
        i := n 
    else 
        i := 0 - n 
fi;

if b 
    then 
        i := n 
    else 
        i := 0 - n 
fi;

a := 0;
b := 0; 

while a do 
    b := b * a; 
    a := a - 1 
od